01 LBL "KPL" 
02 DEG 
03 STO 00 
04 STO 01 
05 X<>Y 
06 STO 02 
07 LBL 01 
08 RCL 02 
09 1 
10 X<=Y? 
11 GTO 00 
12 RCL 01 
13 RCL 02 
14 P-R 
15 1 
16 -
17 STO 03 
18 X<>Y 
19 D-R 
20 STO 04 
21 LASTX 
22 R-D 
23 RCL 00 
24 + 
25 RCL 01 
26 - 
27 GTO 02 
28 LBL 00 
29 RCL 00 
30 RCL 01 
31 + 
32 RCL 02
33 / 
34 STO 04 
35 ENTER^ 
36 X^2 
37 1 
38 + 
39 ST/ 04 
40 SQRT 
41 STO 03 
42 + 
43 LN 
44 RCL 01 
45 - 
46 RCL 02 
47 X^2 
48 RCL 03
49 * 
50 ST/ 04 
51 LASTX 
52 RCL 02 
53 * 
54 1/X 
55 1 
56 - 
57 STO 03 
58 R^ 
59 LBL 02 
60 ST+ X 
61 ST* 04 
62 RCL 03 
63 ENTER^ 
64 X^2
65 RCL 04 
66 + 
67 ABS 
68 SQRT 
69 - 
70 / 
71 ST- 01 
72 ABS 
73 E-6 
74 X<Y? 
75 GTO 01 
76 RCL 01 
77 END
